home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / title.scp < prev    next >
Text File  |  1994-09-15  |  2KB  |  141 lines
  1. { TITLE_LOAD
  2.     I ( @Ç¢              ( LEX ) == 1 ) THEN
  3.               K    CURFIG
  4. }
  5.  
  6.  
  7.  
  8. { TITLESEQUENCE
  9.  
  10.     P        ~ÇÇ   
  11.  
  12.                 @Ç£  (DOWN)
  13.  
  14.     C      UNLOCK                           
  15.     C      TITLE
  16.  
  17.                 @Ç£  (UP) 
  18.  
  19.     O     $Ç£           
  20.      
  21.     ^Çé         = 0
  22.  
  23.     ^Çü            = 0
  24.     æ               GETANYKEY
  25.  
  26.  
  27.     ~ÇÇ    = 3
  28.         
  29.     :TITLE_LOOP
  30.  
  31.     //  THIS ROUTINE CONTROLS THE TITLE SEQUENCE, TITLE IS A 91 (0-90)
  32.     //  FRAME FLIC OF THE HEARTBEAT BIOFORGE TITLE
  33.     
  34.     N     (^Çé        )
  35.     {
  36.         U    4: 
  37.             @Çå   (`ëì        )
  38.             X ÇÇ 
  39.         U    6: 
  40.             @Çå   (`ëì         240 -1024)
  41.             X ÇÇ 
  42.  
  43.         U    9: 
  44.             @Çå   (`ëì        )
  45.             X ÇÇ 
  46.  
  47.         U    11: 
  48.             @Çå   (`ëì         240 -1024)
  49.             X ÇÇ 
  50.  
  51.         U    16: 
  52.             @Çå   (`ëì        )
  53.             X ÇÇ 
  54.  
  55.         U    18: 
  56.             @Çå   (`ëì         240 -1024)
  57.             X ÇÇ 
  58.  
  59.         U    33: 
  60.             @Çå   (`ëì        )
  61.             X ÇÇ 
  62.  
  63.         U    35: 
  64.             @Çå   (`ëì         240 -1024)
  65.             X ÇÇ 
  66.  
  67.         U    39: 
  68.             @Çå   (`ëì        )
  69.             X ÇÇ 
  70.  
  71.         U    42: 
  72.             @Çå   (`ëì         240 -1024)
  73.             X ÇÇ 
  74.  
  75.         U    46: 
  76.             @Çå   (`ëì        )
  77.             X ÇÇ 
  78.  
  79.         U    48: 
  80.             @Çå   (`ëì         240 -1024)
  81.             X ÇÇ 
  82.  
  83.         U    64: 
  84.             @Çå   (`ëì        )
  85.             X ÇÇ 
  86.  
  87.         U    66: 
  88.             @Çå   (`ëì         240 -1024)
  89.             X ÇÇ 
  90.  
  91.         U    69: 
  92.             @Çå   (`ëì        )
  93.             X ÇÇ 
  94.  
  95.         U    72: 
  96.             @Çå   (`ëì         240 -1024)
  97.             X ÇÇ 
  98.  
  99.         U    76: 
  100.             @Çå   (`ëì        )
  101.             X ÇÇ 
  102.  
  103.         U    78: 
  104.             @Çå   (`ëì         240 -1024)
  105.             X ÇÇ 
  106.     }
  107.     ^Çé         ++
  108.     W    3
  109.  
  110.     I  ~ÇÇ    > 0 && ^Çü            == 0 THEN
  111.         {
  112.         I ( ^Çé         > 89 ) THEN
  113.             {
  114.             ^Çé         = 59
  115.             ~ÇÇ    --
  116.             }
  117.         }
  118.  
  119.     I  ~ÇÇ    > 0 && ^Çü            == 0 THEN
  120.         J    #Çé       
  121.     
  122.     
  123.     Æ              
  124.  
  125.     ^Çé         = 72
  126.     â      
  127.  
  128.     
  129. }
  130.  
  131.  
  132. { GETANYKEY _KEY _MODIFIERS _MOUSE
  133.  
  134.     I ( ~ÇÇ  != 0 ) THEN
  135.         ^Çü            = 1
  136.     é     
  137. }
  138.  
  139.  
  140. //$ 26 - version number
  141.